unit DrcpSvcWrapper;

interface
uses DrcpSvc;

Type

  TDrcpSvc=class
  private
    FSoap : DrcpService;
  public
    constructor Create(ASoapAddr : string);

    function Login(AUserId,APassword:string):boolean;

  end;


implementation

{ TDrcpSvc }

function TDrcpSvc.Login(AUserId, APassword: string): boolean;
begin
  result := FSoap.Login(AUserId,APassword);
end;

constructor TDrcpSvc.Create(ASoapAddr: string);
begin
  FSoap := GetDrcpService(false,ASoapAddr);
end;

end.
 